home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1988 October
/
Ahoy_Magazine_88-10_1988_Double_L.d64
/
Flashing Scroll
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
479b
|
12 lines
5 print chr$(14)
10 poke53280,14:poke53281,14:printchr$(31)chr$(147):h=53270:b$=chr$(19)
20 a$(.)=" *********** [212]ips [193]hoy! ******************* "
30 a$(1)="[194][193][211][201][195] [198]lashing [211]croll [210]outine. [194]y [206]ick "
40 a$(2)="[202]ankovic ([203][205][212]). [210]efer to [193]hoy! magazine"
50 a$(3)=" [207]ctober 1988 for instructions. "
60 fora=.to3:forb=1to40:forc=7to.step-1
70 poke53265,peek(53265)or16:pokeh,c:next
80 poke53265,peek(53265)and239:printb$;mid$(a$(a),b,40-b);mid$(a$(a+1),1,b)
90 gete$:ife$<>""thenpoke53265peek(53265)or16:pokeh,8:printchr$(147):end
100 next:next:poke53265,peek(53265)or16:run